home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / dasd / ioctl / wlogt2.scr < prev    next >
Encoding:
Text File  |  1994-08-13  |  929 b   |  40 lines
  1. @thread WLOGT2.LOG
  2. @NewAlias da DASD.GRA
  3. @IMPORT SYSINFO.TXT
  4. da LOG $PROMPT="LOGGING WRITE LOGICAL TEST 2"
  5. da DASD_OPEN
  6. da SET DESTINATION_DRVHAN=$(DRIVEHANDLE)
  7. da SET DEVICENAME=C:
  8. da DASD_OPEN
  9. da SET SOURCE_DRVHAN=$(DRIVEHANDLE)
  10.  
  11. da GET_LOGICAL_PARAMS
  12.  
  13. da response $PROMPT="LOOPING 1 TIME"
  14. da set HEAD=1          \
  15.        CYLINDER=1      \
  16.        SECTORSTART=1   \
  17.        SECTORCOUNT=10  \
  18.        $BUFFER=BETA    \
  19.        $i=0            \
  20.        $op1=1          \
  21.        $result=$i      \
  22.        $kwd=$($result)    
  23.              
  24. da log $prompt="LOOP BEGINING"
  25. @loop 1
  26. * Read from the source drive
  27. da SET DRIVEHANDLE=$(SOURCE_DRVHAN)
  28. da READ_LOGICAL
  29. da DUMP $BUFFER=BETA
  30. da SET DRIVEHANDLE=$(DESTINATION_DRVHAN)
  31. da WRITE_LOGICAL
  32. da READ_LOGICAL $BUFFER=ALPHA
  33. da DUMP $BUFFER=ALPHA
  34. da COMPARE BUFFER1=BETA BUFFER2=ALPHA
  35. da out 
  36. @endloop
  37. da log $prompt="LOOP END"
  38. da DASD_CLOSE
  39. @flush da
  40.